home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / nxtmem.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  258 b   |  10 lines
  1.       integer function nxtmem(memwds)
  2. c
  3. c.. function returns the in nxtmem the next available memory size
  4. c.. (which must be evenly divisible by 'nwd4, nwd8, and nwd16' as
  5. c.. defined in setmem
  6. c
  7.       nxtmem=((memwds+1999)/2000)*2000
  8.       return
  9.       end
  10.